home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 January / 1992-01.d64 / music patterns (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  46 lines
  1. 0 clr
  2. 10 x=rnd(-ti)
  3. 20 deffna(x)=int(110*rnd(1))+20
  4. 30 deffnb(x)=int(14*rnd(1))+1
  5. 40 deffnc(x)=int(11*rnd(1))+1
  6. 50 deffnd(x)=int(25*rnd(1))+1
  7. 60 deffne(x)=int(959*rnd(0))+1024
  8. 70 dimt(26)
  9. 80 fori=1to26:readt(i):next
  10. 90 fori=54272to54295:pokei,0:next:poke54296,15:poke54277,16:poke54275,8
  11. 100 fr=54273:vc=54276:sc=1024:mn=1063:mo=1064:ma=1983:co=40:lo=39:li=41
  12. 110 vn=65:vo=64:c=54272
  13. 120 printchr$(147)chr$(5):poke53280,0:poke53281,0
  14. 130 fort=1to10:print:next
  15. 140 printtab(4)"press space bar for new pattern
  16. 150 [129]t[178]1[164]1000:[130]
  17. 160 [153][199](147)
  18. 170 b[178]t([165]d(x)):[143] character
  19. 180 k[178][165]e(x):[143] starting point
  20. 190 p[178][165]c(x):h(1)[178][165]a(x)
  21. 200 q[178][165]c(x):h(2)[178][165]a(x)
  22. 210 r[178][165]c(x):h(3)[178][165]a(x)
  23. 220 s[178][165]c(x):h(4)[178][165]a(x)
  24. 230 t[178][165]b(x):u[178][165]b(x):v[178][165]b(x):w[178][165]b(x)
  25. 240 [129]x[178]1[164]p:[151]k,b:[151]k[170]c,t:[151]fr,h(1):[151]vc,vn:k[178]k[170]li
  26. 250 [139]k[177]ma[167]280
  27. 260 [139](k[171]mn)[173]co[171][181]((k[171]mn)[173]co)[178]0[167]380
  28. 270 [151]vc,vo:[130]
  29. 280 [161]a$:[139]a$[178]" "[167]160
  30. 290 [129]x[178]1[164]q:[151]k,b:[151]k[170]c,u:[151]fr,h(2):[151]vc,vn:k[178]k[171]lo
  31. 300 [139]k[179]mo[167]240
  32. 310 [139](k[171]mn)[173]co[171][181]((k[171]mn)[173]co)[178]0[167]330
  33. 320 [151]vc,vo:[130]
  34. 330 [161]a$:[139]a$[178]" "[167]160
  35. 340 [129]x[178]1[164]r:[151]k,b:[151]k[170]c,v:[151]fr,h(3):[151]vc,vn:k[178]k[171]li
  36. 350 [139]k[179]mo[167]380
  37. 360 [139](k[171]sc)[173]co[171][181]((k[171]sc)[173]co)[178]0[167]280
  38. 370 [151]vc,vo:[130]
  39. 380 [161]a$:[139]a$[178]" "[167]160
  40. 390 [129]x[178]1[164]s:[151]k,b:[151]k[170]c,w:[151]fr,h(4):[151]vc,vn:k[178]k[170]lo
  41. 400 [139](k[171]sc)[173]co[171][181]((k[171]sc)[173]co)[178]0[167]240
  42. 410 [139]k[177]ma[167]330
  43. 420 [151]vc,vo:[130]:[137]190
  44. 430 [131]81,95,105,127,160,170,171,174,186,192,205,206,209,214,215,219,221
  45. 440 [131]223,226,230,233,236,251,252,254,255
  46.